#!
package A;
sub new{}

package main;
$x = 100;
$pi = 3.1415926;
$s = 'It is a new world!';
$text = "$x and $pi are numbers, $s and me are strings\n";
$obj = new A;

$ref = \$text;
$get_text = $$ref;
print $get_text;
